home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / GestaltEqu.el < prev    next >
Encoding:
Text File  |  1994-01-17  |  710 b   |  21 lines  |  [TEXT/EMAC]
  1. ;;;
  2. ;;; This file is part of a Macintosh port of GNU Emacs.
  3. ;;; Copyright (C) 1993, 1994 Marc Parmet.  All rights reserved.
  4. ;;;
  5. ;;; GNU Emacs is distributed in the hope that it will be useful,
  6. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  7. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  8. ;;; GNU General Public License for more details.
  9. ;;;
  10.  
  11. (defconst gestaltQuickdrawVersion "qd  ")
  12. (defconst gestalt8BitQD 256 "0x100")
  13.  
  14. ; pascal OSErr Gestalt(OSType selector,long *response)
  15. ; = {0xA1AD,0x2288}; 
  16. ; #pragma parameter __D0 Gestalt(__D0,__A1)
  17. (deftrap Gestalt ("201f" "a1ad" "2288") ; move.l (a7)+,d0
  18.   ((selector immediate-string)
  19.    (response address a1))
  20.   (short d0))
  21.